home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / mathcad.zip / DIR2.ZIP / EXAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1992-03-30  |  546b  |  26 lines
  1. .EQN 0 0 0 0
  2. n:10
  3. .EQN 4 0 0 0
  4. x:0,({0:\p}NAME)/(n);2*{0:\p}NAME
  5. .EQN 3 -1 0 0
  6. &&sin(x)@2*{0:\p}NAME&&x
  7. 0 0 0 1 0
  8. 0 0 1 0 0
  9. 0 1 0 0 NO-TRACE-STRING
  10. 0 2 1 0 NO-TRACE-STRING
  11. 0 3 2 0 NO-TRACE-STRING
  12. 0 4 3 0 NO-TRACE-STRING
  13. 0 1 4 0 NO-TRACE-STRING
  14. 0 2 5 0 NO-TRACE-STRING
  15. 0 3 6 0 NO-TRACE-STRING
  16. 0 4 0 0 NO-TRACE-STRING
  17. 0 1 1 0 NO-TRACE-STRING
  18. 0 2 2 0 NO-TRACE-STRING
  19. 0 3 3 0 NO-TRACE-STRING
  20. 0 4 4 0 NO-TRACE-STRING
  21. 0 1 5 0 NO-TRACE-STRING
  22. 0 2 6 0 NO-TRACE-STRING
  23. 0 3 0 0 NO-TRACE-STRING
  24. 0 4 1 0 NO-TRACE-STRING
  25. 0 1 21 15
  26.